home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / OPAQUE.M < prev    next >
Encoding:
Modula Definition  |  1990-10-01  |  272 b   |  16 lines
  1. (* hierbei gab's mal nen buserror am Ende *)
  2.  
  3. DEFINITION MODULE A;
  4. TYPE  Handle;
  5. END A.
  6.  
  7. IMPLEMENTATION MODULE A;
  8.  
  9. IMPORT TOSIO;
  10.  
  11. TYPE MyType = RECORD col: CARDINAL; END;
  12.  
  13. TYPE Handle = POINTER TO MyType;      (* Der Opaque Typ wird redeklariert *)
  14.  
  15. END A.
  16.